<!--#include virtual="/common/Config.asp" -->
<!--#include virtual="/common/conn.asp" -->
<!--#include virtual="/common/function.asp" -->
<%


'取新闻详细
Dim Info_ID			
Dim Info_Type_ID		
Dim Info_Title		
Dim Info_URL		
Dim Info_ZY			
Dim Info_Content
Dim Info_Type
Dim Info_Type2

Dim Info_PicPath	
Dim Update_Date

Sub  Get_News_Detail()
	News_ID = Requery("Info_ID")

	Call Check_IsNumeric(News_ID)

	Sql = "SELECT Info_Type_ID,Info_Title,Info_URL,Info_ZY,Info_Content,Update_Date,BT_Name,IT_Name FROM uvw_News WHERE Info_ID="&News_ID
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		Info_Type_ID= Array_List(0,0)
		Info_Title	= Array_List(1,0)
		Info_URL	= Array_List(2,0)
		Info_ZY		= Array_List(3,0)
		Info_Content= Array_List(4,0)
		Update_Date = Array_List(5,0)
		Info_Type	= Array_List(6,0)
		Info_Type2  = Array_List(7,0)
	Else
		AlertBox "记录不存在!","javascript:history.go(-1)"
	End If 
	
End Sub


'2010-3-2
'家政导航
Sub Get_Corp_Type_List()
	Sql = "SELECT ID,Corp_Type_Name FROM Corp_Type WHERE Parent_ID=0 ORDER BY Corp_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		For i=0 To UBound(Array_List,2)
			ID				= Array_List(0,i)
			Corp_Type_Name  = Array_List(1,i)
			Response.Write "<dl>"
			Response.Write "<dt><strong>"&Corp_Type_Name&"</strong></dt>"
			Sql2 = "SELECT ID,Corp_Type_Name FROM Corp_Type WHERE Parent_ID="&ID&" ORDER BY Corp_Order ASC"
			Array_List2 = GetRsRows(Sql2)
			If IsArray(Array_List2) Then 
				For XX=0 To UBound(Array_List2,2)
					ID2				= Array_List2(0,XX)
					Corp_Type_Name  = Array_List2(1,XX)
					Response.Write "<dd><a href=""/Family/f_index.asp?corp_type="&ID&"&corp_type2="&id2&""">"&Corp_Type_Name&"</a></dd>"

				Next 
			End If 
			Response.Write "</dl>"


		Next 
	End If 

End Sub 
'滚动新闻
Sub Get_Scroll_News()

	Sql = "SELECT  TOP 1 b.Info_ID,b.Info_Title,b.Info_Pic FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='首页滚动新闻' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		Info_ID		= Array_List(0,0)
		Info_Title  = Array_List(1,0)
		Response.Write Info_Title
	End If 
End Sub 
'主题新闻
Sub Get_Top_News()

	Sql = "SELECT  TOP 1 b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_ZY FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='首页主题新闻' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		news_id		= Array_List(0,i)
		news_title  = Array_List(1,i)
		news_Pic	= Array_List(2,i)
		Info_ZY		= CutStrNone(Array_List(3,i),69)	
		news_detail_url = "/news/news_view.asp?Info_ID="&news_id
		Response.Write "<div class=""life_c_tip""><a href="""&news_detail_url&"""><img src="""&news_pic&""" width=""474"" height=""263"" /></a></div>"
		Response.Write "<div class=""life_c_t_news"">"
		Response.Write	"<h2><a href="""&news_detail_url&""">"&news_title&"</a></h2>"
		Response.Write	"<p>　 "&Info_ZY&"……<a href="""&news_detail_url&""">[详细]</a></p>"
		Response.Write "</div>"

	End If 

End Sub 
Sub Get_News_List(Info_Type_Name,Info_Count)
	Sql = "SELECT  TOP "&Info_Count&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Update_Date,b.IT_Name,b.Info_Sub_Title FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&Info_Type_Name&"' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		Response.Write "<ul class=""ind_t_txt"">"
		For i=0 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			IT_Name		= Info_List(4,i)
			Info_Sub_Title = Info_List(5,i)
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			Response.Write "<li><a href="""&news_detail_url&""">"&news_title&"</a><span><a href="""&news_detail_url&""">"&Info_Sub_Title&"</a></span></li>"
			If i=5 Then Exit For 
		Next 
		Response.Write "</ul>"
		Response.Write "<ul class=""ind_t_txt mt"">"
		For i=6 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			Update_Date = Info_List(3,i)
			news_date	= Right("0"&Month(Update_Date),2)&"-"&Right("0"&day(Update_Date),2)
			IT_Name		= Info_List(4,i)
			Info_Sub_Title = Info_List(5,i)

			news_detail_url = "/news/news_view.asp?Info_ID="&news_id

			Response.Write "<li><a href="""&news_detail_url&""">"&IT_Name&"</a> | <a href="""&news_detail_url&""">"&news_title&"</a></li>"
		Next 
		Response.Write "	</ul>"
	
	End If 
End Sub 
Sub Get_News_List2(Info_Type_Name,Info_Count)
	Sql = "SELECT  TOP "&Info_Count&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&Info_Type_Name&"' ORDER  BY a.Sort_Order ASC"

	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		Response.Write "<ul class=""ind_m_move"">"
		For i=0 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id

			Response.Write "<li><p><a href="""&news_detail_url&"""><img src="&news_pic&" width=""116"" height=""64""/></a></p><p><a href="""&news_detail_url&""">"&news_title&"</a></p></li>"
			If i=2 Then Exit For 
		Next 
		Response.Write "</ul>"
		Response.Write "<p class=""v4_line mar_c_line""></p>"
		Response.Write "<ul class=""ind_pic_txt"">"
		For i=3 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id

			Response.Write "<li><a href="""&news_detail_url&""">"&news_title&"</a></li>"
		Next 
		Response.Write "</ul>"

	
	End If 
End Sub 
Sub Get_News_List3(Info_Type_Name,Info_Count)
	Sql = "SELECT  TOP "&Info_Count&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&Info_Type_Name&"' ORDER  BY a.Sort_Order ASC"

	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		Response.Write "<ul class=""ind_m_move"">"
		For i=0 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id

			Response.Write "<li><p><a href="""&news_detail_url&"""><img src="&news_pic&" width=""116"" height=""64""/></a></p><p><a href="""&news_detail_url&""">"&news_title&"</a></p></li>"
			If i=2 Then Exit For 
		Next 
		Response.Write "</ul>"
		Response.Write "<p class=""v4_line mar_c_line""></p>"
		Response.Write "<ul class=""ind_move_txt"">"
		For i=3 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id

			Response.Write "<li><a href="""&news_detail_url&""">"&news_title&"</a></li>"
		Next 
		Response.Write "</ul>"

	
	End If 
End Sub 
'首页租房信息
Sub Rent_Info_List()
	Sql = "SELECT  TOP 7 b.ID,b.Rent_Title,b.Room_Pic,Rent_Price FROM uvw_Sort_Info a INNER JOIN Rent_Info b ON a.Info_ID = b.ID  WHERE  a.Sort_Sub_Name='首页租房信息' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		Response.Write "<div class=""rent-img-list"">"
		Response.Write "	<ul>"
		For i=0 To UBound(Info_List,2)
			ID			= Info_List(0,i)
			Rent_Title  = Info_List(1,i)
			Room_Pic	= Info_List(2,i)
			Rent_Price  = Info_List(3,i)
			detail_url = "#"
			Response.Write "<li><p><a href="""&detail_url&"""><img src="&Room_Pic&" width=""120"" height=""90""/></a></p><p><a href="""&detail_url&""">"&Rent_Title&"</a></p></li>"
			If i=2 Then Exit For  
		Next 
		Response.Write "	</ul>"
		Response.Write "</div>"
		Response.Write "<div class=""rent-txt-list"">"
		Response.Write "	<ul>"
		For i=3 To UBound(Info_List,2)
			ID			= Info_List(0,i)
			Rent_Title  = Info_List(1,i)
			Room_Pic	= Info_List(2,i)
			Rent_Price  = Info_List(3,i)
			detail_url = "#"
			Response.Write "<li><a href="""&detail_url&""">·"&Rent_Title&"<span>"&Rent_Price&"</span></a></li>"
		Next 

		Response.Write "	</ul>"
		Response.Write "</div>"
	End If 

End Sub  
Sub Corp_Info_List()
	Sql = "SELECT  TOP 4 b.ID,b.Corp_Name,b.Corp_Pic FROM uvw_Sort_Info a INNER JOIN Corp_Info b ON a.Info_ID = b.ID  WHERE  a.Sort_Sub_Name='首页租房信息' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			ID			= Info_List(0,i)
			Corp_Name   = Info_List(1,i)
			Corp_Pic	= Info_List(2,i)
			detail_url = "#"

			Response.Write "<li><a href="""&detail_url&"""><img src="&Corp_Pic&" width=""130"" height=""88""/></a><p><a href="""&detail_url&""">"&Corp_Name&"</a></p></li>"

		Next 
	End If 
End Sub 
Sub Get_Movie_List(Info_Type_Name,Info_Count)
	Sql = "SELECT  TOP "&Info_Count&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Update_Date,b.IT_Name,b.Info_Sub_Title FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&Info_Type_Name&"' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = Info_List(1,i)
			news_Pic	= Info_List(2,i)
			IT_Name		= Info_List(4,i)
			Info_Sub_Title = Info_List(5,i)
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			Response.Write "<h4><a href=""javascript:void(0);"">"&news_title&"</a></h4>"
			Response.Write "<div class=""movecon"">"
			Response.Write "<p><img src="""&news_Pic&""" /></p>"
			Response.Write "<p><span>上映:</span>"&Info_Sub_Title&"</p>"
			Response.Write "</div>"
		Next 
	
	End If 
End Sub 
Sub Spot_List(Info_Type_Name,Info_Count)
	Sql = "SELECT  TOP "&Info_Count&" b.Spot_ID,b.Spot_Name,b.Spot_Pic FROM uvw_Sort_Info a INNER JOIN Spot_Info b ON a.Info_ID  = b.Spot_ID  WHERE  a.Sort_Sub_Name='"&Info_Type_Name&"' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			Spot_ID		= Info_List(0,i)
			Spot_Name   = Info_List(1,i)
			Spot_Pic	= Info_List(2,i)
			spot_detail_url = "/spot/spot_view.asp?spot_ID="&Spot_ID
			Response.Write "<li><a href="""&spot_detail_url&"""><img src="""&Spot_Pic&""" widht=""60""  height=""40"" alt="""&Spot_Name&"""/></a></li>"
		Next 
	
	End If 
End Sub 
Sub Get_JZXT_List(Info_Type_Name,Info_Count)
	Sql = "SELECT  TOP "&Info_Count&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Update_Date,b.IT_Name,b.Info_Sub_Title FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&Info_Type_Name&"' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			news_id		= Info_List(0,i)
			news_title  = cutstr(Info_List(1,i),27)		
			news_Pic	= Info_List(2,i)
			Update_Date = Info_List(3,i)
			news_date	= Right("0"&Month(Update_Date),2)&"-"&Right("0"&day(Update_Date),2)
			IT_Name		= Info_List(4,i)
			Info_Sub_Title = Info_List(5,i)

			news_detail_url = "/news/news_view.asp?Info_ID="&news_id

			Response.Write "<li><a href="""&news_detail_url&""">"&IT_Name&"</a> | <a href="""&news_detail_url&""">"&news_title&"</a></li>"
		Next 
	
	End If 
End Sub 
Sub Lott_Info()
Sql = "SELECT  TOP 2 b.LI_ID,b.LI_Type,b.LI_Number,b.LI_NO,b.LI_Open_Date FROM uvw_Sort_Info a INNER JOIN Lott_Info b ON a.Info_ID = b.LI_ID  WHERE  a.Sort_Sub_Name='最新开奖' ORDER  BY a.Sort_Order ASC"
Lott_List = GetRsRows(Sql)

If IsArray(Lott_List) Then 
	For i=0 To UBound(Lott_List,2)
		LI_Type		= Lott_List(1,i)
		LI_Number   = Lott_List(2,i)
		LI_NO		= Lott_List(3,i)
		LI_Open_Date= Lott_List(4,i)
		LI_Number_Array = Split(LI_Number,"|")			   
		Lott_Num1 = LI_Number_Array(0)
		Lott_Num2 = LI_Number_Array(1)
		Lott_Num3 = LI_Number_Array(2)
		Lott_Num4 = LI_Number_Array(3)
		Lott_Num5 = LI_Number_Array(4)
		Lott_Num6 = LI_Number_Array(5)
		Lott_Num7 = LI_Number_Array(6)
		SevenStar  = Lott_Num1&Lott_Num2&Lott_Num3&Lott_Num4&Lott_Num5&Lott_Num6&Lott_Num7
		hainan = Lott_Num1&Lott_Num2&Lott_Num3&Lott_Num4

		If LI_Type="七星彩" Then 
			Response.Write "<div class=""lottery_n_inc"">"
			Response.Write "<p class=""lottery_title tc""><strong>七星彩</strong>"&LI_NO&"期</p>"
			Response.Write "<p class=""lottery_no tc""><i>"&SevenStar&"</i></p>"
			Response.Write "<p class=""lottery_date tr"">开奖:"&LI_Open_Date&" </p>"
			Response.Write "</div>"
		Else
			Response.Write "<div class=""lottery_n_inc"">"
			Response.Write "<p class=""lottery_title tc""><strong>海南4+1</strong>"&LI_NO&"期</p>"
			Response.Write "<p class=""lottery_no tc""><i>"& hainan&" <b>+</b> <em>"&Lott_Num5&"</em></i></p>"
			Response.Write "<p class=""lottery_date tr"">开奖:"&LI_Open_Date&" </p>"
			Response.Write "</div>"
		End If 
		If i=0 Then 
			Response.Write "<p class=""v4_line""></p>"
		End If 

	Next 

End If 
End Sub 
Dim Search_Tag
Sub Get_Search_Tag()
	temp_Search_Tag = ""
	Tag = Get_FirstValue("SELECT isnull(Tag,'') FROM Search_Tag ")
	If tag<>"" Then 
		tag_array = Split(tag,",")
		For xx=0 To UBound(tag_array)
			If  Trim(tag_array(xx))<>"" Then 
				search_url = "<a href=""/Family/f_index.asp?tag="&UrlEncode(tag_array(xx))&""" target=_blank>"&tag_array(xx)&"</a>"
				temp_Search_Tag = temp_Search_Tag&","&search_url
			End If 
		Next 
	End If 
	If temp_Search_Tag<>"" Then 
		temp_Search_Tag = Mid(temp_Search_Tag,2,Len(temp_Search_Tag)-1)
	End If 
	Search_Tag = temp_Search_Tag
End Sub 

%>
